home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / MPW macros / doSize < prev    next >
Encoding:
Text File  |  1987-01-26  |  524 b   |  21 lines  |  [TEXT/MPS ]
  1. set exit 0        #so 'cancel' buttons not fatal
  2.  
  3. "{MPW}macros:getResAttrs" SIZE
  4. confirm "Save Screen?" ; set save {status} 
  5. confirm "Suspend-Resume Events?" ; set sus {status} 
  6. set siz "`request -d 98304 'Preferred Size ( - 32K)?'`"
  7. set min "`request -d 98304 'Minimum Size ( -32K)?'`"
  8.  
  9. if {save} != 0
  10.     echo "  dontSaveScreen,"
  11. else
  12.     echo "  SaveScreen,"
  13. end
  14. if {sus} != 0
  15.     echo "  ignoreSuspendResumeEvents,"
  16. else
  17.     echo "  acceptSuspendResumeEvents,"
  18. end
  19. echo "  {siz},∂t∂/* preferred *∂/"
  20. echo "  {min} ∂t∂/* minimum *∂/∂n∂};"
  21.